(defclass world (snail:handler-gadget)
  ((world :accessor world
	  :initarg :world)))

(defmacro make-world ((v dim size &key children (type ''world) world) var &body body)
  `(snail:make-handler-gadget
       (,v ,dim ,size :children ,children :type ,type :world ,world)
       ,var ,@body))
